home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / EnterCD 01_2004.iso / Multimedia / Advanced Effect Maker Freeware Edition 1.0 / aemf10.exe / {app} / templates / puzzlegame.swf / scripts / frame_2 / DoAction.as
Encoding:
Text File  |  2003-05-25  |  1.0 KB  |  42 lines
  1. tpm++;
  2. call("Winner");
  3. if(Number(winner) == 1)
  4. {
  5.    call("Shuffle");
  6.    tpm = 0;
  7.    removeMovieClip("c1");
  8. }
  9. else
  10. {
  11.    pos = eval("pos" add clicked);
  12.    emptyRow = 1 + Number(int((empty - 1) / numCols));
  13.    emptyCol = empty - (emptyRow - 1) * numCols;
  14.    clickedRow = 1 + Number(int((pos - 1) / numCols));
  15.    clickedCol = pos - (clickedRow - 1) * numCols;
  16.    rowDiff = clickedRow - emptyRow;
  17.    colDiff = clickedCol - emptyCol;
  18.    if(Number(rowDiff) < 0)
  19.    {
  20.       rowDiff = - rowDiff;
  21.    }
  22.    if(Number(colDiff) < 0)
  23.    {
  24.       colDiff = - colDiff;
  25.    }
  26.    adjacent = Number(Number(rowDiff) + Number(colDiff)) == 1;
  27.    if(Number(adjacent) == 1)
  28.    {
  29.       setProperty("p" add clicked, _X, eval("x" add emptyCol));
  30.       setProperty("p" add clicked, _Y, eval("y" add emptyRow));
  31.       set("pos" add clicked,empty);
  32.       empty = pos;
  33.       call("Winner");
  34.       if(Number(winner) == 1)
  35.       {
  36.          duplicateMovieClip("congratulations","c1",17384);
  37.          c1.tpm = tpm;
  38.          c1._visible = 1;
  39.       }
  40.    }
  41. }
  42.